home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1999 February / MACPOWER-1999-02.ISO.7z / MACPOWER-1999-02.ISO / 9902⁄AMUG / EDUCATION / Easy Writer 3.5.sit / Easy Writer ƒ / Easy Writer .rsrc / LENS_129_Control < prev    next >
Text File  |  1998-10-19  |  4KB  |  86 lines
  1. ItemType: WIND
  2. Rect: 296,246,727,355
  3. Style: craftydup
  4. Logic:Windoid
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. HasCloseBox: FALSE
  8. HasGrowBox: FALSE
  9. MinSize: 100,50
  10. MaxSize: 865,597
  11. Name: Control
  12. WhiteColor: -1,-13108,-13108
  13. Script: --on windowEvent  wdID,wdName,objNo,objName,objValueﾂﾂif objValue="Open" thenﾂ  global mediaﾂ  if media = "Blackboard" thenﾂ    put "i1_Name:PrimPap" & RETURN into xﾂ  elseﾂ    put "i1_Name:Chlkbrd" & RETURN into xﾂ  end ifﾂ  global theToolﾂ  if theTool = "browse" thenﾂ    put "i2_Name:Pointer" & RETURN after xﾂ  elseﾂ    put "i2_Name:Writer" & RETURN after xﾂ  end ifﾂ  global langﾂ  put lang & "_Hilite:true" & RETURN after xﾂ  global sndﾂ  if snd is true thenﾂ    put "i6_Name:Habla" & RETURN after xﾂ  elseﾂ    put "i6_Name:Calla" & RETURN after xﾂ  end ifﾂ  ﾂ  put the short name of this card into tcﾂ  get i14_Text of window wdNameﾂ  repeat with kk = 1 to (the number of lines of it)ﾂ    if line kk of it = tc thenﾂ      put kk into jjﾂ      exit repeatﾂ    end ifﾂ  end repeatﾂ  if jj <> empty thenﾂ    put "i14_Selection:"&jj & RETURN after xﾂ  end ifﾂ  set the properties of window wdName to x ﾂ  ﾂelse if objValue="Close" then ﾂ  ﾂelse if objValue="Suspend" then ﾂ  ﾂelse if objValue="Resume" then ﾂ  ﾂelse if objValue="CloseBox" then ﾂ  ﾂelse if objValue="ZoomBox" then ﾂ  ﾂelse if objValue="GrowBox" then ﾂ  ﾂelse if objValue="TitleBar" then ﾂ  ﾂend ifﾂﾂ--end windowEvent
  14.  
  15. ItemType: ICON
  16. Rect: 243,7,275,39
  17. Name: Chlkbrd
  18. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂﾂget i1_Name of window wdNameﾂif it is "PrimPap" thenﾂ  set i1_Name of window wdName to "Chlkbrd"ﾂelseﾂ  set i1_Name of window wdName to "PrimPap"ﾂend ifﾂtoggleMediaﾂ--end mouseUp
  19.  
  20. ItemType: ICON
  21. Rect: 210,7,242,39
  22. Name: Pointer
  23. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂﾂget i2_Name of window wdNameﾂif it is "Pointer" thenﾂ  set i2_Name of window wdName to "Writer"ﾂ  choose the brush toolﾂelseﾂ  set i2_Name of window wdName to "Pointer"ﾂ  choose the browse toolﾂend ifﾂ--end mouseUp
  24.  
  25. ItemType: ICON
  26. Rect: 242,40,274,72
  27. Name: Prntr
  28. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂPrintItﾂ--end mouseUp
  29.  
  30. ItemType: ICON
  31. Rect: 275,7,307,39
  32. Name: Bomb
  33. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂBlowItAwayﾂ--end mouseUp
  34.  
  35. ItemType: ICON
  36. Rect: 210,40,242,72
  37. Name: Question
  38. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂdoMyHelpﾂ--end mouseUp
  39.  
  40. ItemType: ICON
  41. Rect: 275,40,307,72
  42. Name: Habla
  43. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂget i6_Name of window wdNameﾂglobal sndﾂif it is "Habla" thenﾂ  set i6_Name of window wdName to "Calla"ﾂ  put false into sndﾂelseﾂ  set i6_Name of window wdName to "Habla"ﾂ  put true into sndﾂend ifﾂ--end mouseUp
  44.  
  45. ItemType: PICT
  46. Rect: 6,7,209,101
  47. Name: Teclado
  48. Grid: 6,5
  49. Logic: Push
  50. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂﾂput false into SDﾂif the shiftKey is down then put true into SDﾂget i7_Selection of window wdNameﾂif it < 27 thenﾂ  if SD thenﾂ    letter (numtoChar(64+it)) ﾂ elseﾂ   letter (numtoChar(96+it))ﾂ  end ifﾂelse if it < 29 thenﾂ  letter " " ﾂelseﾂ  doAWordﾂend ifﾂ--end mouseUp
  51.  
  52. ItemType: ICON
  53. Rect: 210,73,242,105
  54. Name: Quit
  55. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂcQuitﾂ--end mouseUp
  56.  
  57. ItemType: ICON
  58. Rect: 243,73,275,105
  59. Name: menu
  60. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂtoggleMenuﾂ--end mouseUp
  61.  
  62. ItemType: ICON
  63. Rect: 275,73,307,105
  64. Name: AlphaEdit
  65. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂﾂcAEditﾂ--end mouseUp
  66.  
  67. ItemType: RAD
  68. Rect: 315,63,385,79
  69. Name: English
  70. Hilite: TRUE
  71. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂglobal langﾂput "English" into langﾂ--end mouseUp
  72.  
  73. ItemType: RAD
  74. Rect: 314,84,388,100
  75. Name: Spanish
  76. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂglobal langﾂput "Spanish" into langﾂ--end mouseUp
  77.  
  78. ItemType: LBL
  79. Rect: 315,11,377,27
  80. Text: Alphabet
  81.  
  82. ItemType: POP
  83. Rect: 309,31,426,48
  84. Name: alphselect
  85. Text: ManuscriptﾂCursive
  86. Script: --on mouseUp  wdID,wdName,objNo,objName,objValueﾂget i14_Selection of window wdnameﾂput it into dddﾂget i14_Text of window wdNameﾂput line ddd of it into thecdﾂif not (there is a cd thecd) thenﾂ  answer ("No such alphabet.")ﾂelseﾂ  go cd thecdﾂend ifﾂ--end mouseUp□